Dim As String x, h="" Dim As Integer i Input "Befehl: ", x for i = 1 to Len(x) h += HEX(x[i-1], 2) next i print "Hex: "; h sleep