Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
Public Function Wandle_Zeichen_in_Hex(ByVal Zeichen As String) As String
Dim Ascii_Code As Byte
Ascii_Code = Asc(Zeichen) ' Bestimme Ascii-Code des Zeichens
Wandle_Zeichen_in_Hex = Hex(Ascii_Code) ' Stelle Ascii-Code hexadezimal dar und gib das Ergebnis zurück
Return
End Function
Private Sub Button1_Click()
TextBox1.Text = Wandle_Zeichen_in_Hex("s") ' Ergebnis = 73h
End Sub