Private Sub Form_Load()
      Dim i As Integer, Str As String
 
     On Error GoTo ERROR
 
1    For i = 0 To 257
2    Str = Chr(i)
3    Next
4    Exit Sub
ERROR:
    MsgBox Err.Description & ", en la linea " & Erl, , "Error " & Err.Number
End Sub