if not isnull(Textbox.Text) then
    a = Val(Textbox1.Text) '' Text wird in Zahl umgewandelt 
 ......
   For i = 0 To 7 Step 1 
       Textbox1.Text = Textbox1.Text + Trim(Str(myArray(i))) ''Trim verhindert, _
         dass die        
                'durch die Funktion str zuückgelieferten leerzeichen ausgegeben 
                ' werden 
   Next 
else
     msgbox "Bitte geben Sie eine Zahl zwischen 0 und 255 ein"
'Dann das END IF
END IF