[RESOLVED] Is there something in brackets?

[Lauriux1]

Here it is with basic error handling.

Public Function GetText(Text As String) As String
    Dim lngStart As Long
If Trim(Text) = "" Then MsgBox ("Error: No text."), vbInformation, "Error": Exit Function
If InStr(1, Text, "[") = 0 Or InStr(1, Text, "]") = 0 Then MsgBox ("Error: No text in brackets."), vbInformation, "Error": Exit Function
    lngStart = InStr(1, Text, "[")
    GetText = Mid(Text, lngStart + 1, InStr(lngStart, Text, "]") - lngStart - 1)
End Function

Nice! But if TextBox = "][" then we will get "Run-time error '5' "