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 Einfügen(rtext As String, zeichen As String) As String
x = 2
For n = 1 To (Len(rtext) / 2) - 1 + (Len(rtext) Mod 2)
rtext = Left(rtext, x) & zeichen & Mid(rtext, x + Len(zeichen))
x = x + 3
Next n
Einfügen = rtext
End Function
Private Sub Command1_Click()
MsgBox Einfügen("IrgendeinText", "-")
End Sub