Private Sub Command1_Click()
Dim lngDezimal1 As Long
Dim lngDezimal2 As Long
Dim lngDezimal3 As Long
 
Dim zahl1 As String
Dim zahl2 As String
Dim zahl3 As String
 
zahl1 = Val(Left$(Text1.Text, 2))
zahl2 = Val(Mid$(Text1.Text, 3, 2))
zahl3 = Val(Mid$(Text1.Text, 5, 2))
 
 
lngDezimal1 = CLng("&H" & zahl1)
lngDezimal2 = CLng("&H" & zahl2)
lngDezimal3 = CLng("&H" & zahl3)
 
MsgBox "Der Dezimalwert von Hex(" & zahl1 & zahl2 & zahl3 & ") ist: " & _
  lngDezimal1 & lngDezimal2 & lngDezimal3
End Sub