Private Sub Command1_Click()
Text2.Text = HexToLong(Text1.Text)
End Sub
Function HexToLong(ByVal sHex As String) As Long
HexToLong = Val("&H" & sHex & "&")
End Function
stačí jen umět číst
Private Sub Command1_Click()
Text2.Text = HexToLong(Text1.Text)
End Sub
Function HexToLong(ByVal sHex As String) As Long
HexToLong = Val("&H" & sHex & "&")
End Function
stačí jen umět číst