Secondo una precedente discussione le cifre in esadecimale ad es. 00 andavano lette come string ma purtroppo ho sempre lo stesso problema e cioè il prgramma legge sempre un solo 0

Private Sub Command1_Click()
Dim num As String
Dim num1 As String
If Check1.Value = 1 Then
num = Val("15")
num1 = Val("0D+2")
End If
Text1.Text = num
Text2.Text = num1

Datemi un consiglio

Grazie