Private Sub Berechnen()
Dim Ausgangsbasis As Byte
 If txtWert(0).Text <> "" Then
   txtWert(1).Text = Konventieren(txtWert(0).Text, 10, UmwandlungsBasis( _
     Ausgangsbasis))

Public Function UmwandlungsBasis(Ausgangsbasis As Byte) As Byte
'Feststellen in welches Basis gewandelt werden soll. Einfache Überprüfung der 
' optButton und die Basis in die Variabale
'Ausgangsbasis schreiben
Dim i As Integer
 
  Select Case i
    Case i = optButton(0)
      Ausgangsbasis = 10
    Case i = optButton(1)
      Ausgangsbasis = 16
    Case i = optButton(2)
      Ausgangsbasis = 8
    Case i = optButton(3)
      Ausgangsbasis = 2
    End Select
 
End Function

Function Konventieren(NumIn As String, Eingangsbasis As Byte, Ausgangsbasis As _
  Byte) As String
 'Function zum Konventieren der Zahl in die gewünschte Basis