Har en funktion som tar emot en string och ska konvertera det till hexvärdet av samma bokstav. Returnerar en hex som integer.
Har en ful-lösning som ser ut såhär just nu:
Case "A"
hex = &H41
Case "B"
hex = &H42
osv...

Hur gör man detta på ett snyggare sätt?
Tack på förhand!

msgbox hex(asc("Din sträng"))

/Curta

Hej
Om jag förstått rätt kan du konvertera hela strängen i ett svep.
Ex.
Private Sub Command1_Click()
Dim returStr As String
returStr = "0FAF" ' simulerad retur
Label1.Caption = Val("&H" & returStr)
End Sub

Sven

Tackar!