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.
Private Sub Test()
Me.Text = Extract("[14:42:30] bla bla dies und das")
End Sub
Private Function Extract(ByVal Str As String) As String
Dim S As String
Dim MeinString As String = Str
Dim Start As Integer = InStr(MeinString, "[") + 1
Dim Length As Integer = InStr(Mid(MeinString, Start + 1), "]")
S = Mid(MeinString, Start, Length)
Return S
End Function