Dim strmessage As String
Dim wert(1 To 7) As Single
Dim flag(1 To 8) As Boolean
 
Private Sub Command1_Click()
  strmessage = "(228.7 228.7 228.7 000 50.0 27.6 33.4 00101000"
  strmessage = Right(strmessage, Len(strmessage) - 1)
  For i = 1 To 7
    wert(i) = Val(Left(strmessage, InStr(strmessage, " ") - 1))
    strmessage = Mid(strmessage, InStr(strmessage, " ") + 1)
  Next
  For i = 1 To 8
    flag(i) = CInt(Mid(strmessage, i, 1))
  Next
End Sub