Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
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