Select Case ComboBox1.Text
            Case "Integer"
                Dim i As Integer
                If Integer.TryParse(TextBox1.Text, i) Then
                    TextBox1.Text = i.ToString()
                Else
                    TextBox1.Text = "0"
                End If
            Case "Double"
                Dim d As Double
                If Double.TryParse(TextBox1.Text, d) Then
                    TextBox1.Text = d.ToString("n2")
                Else
                    d = 0
                    TextBox1.Text = d.ToString("n2")
                End If
        End Select

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist