Der selbe Fehler ist wohl hier:

Dim Text As String * 16
Dim Text_auto As String * 4

Text = "hallo" + Str(text_auto)