Private Sub Form_Load() Dim i As String End Sub Private Sub Command1_Click() For i = a To z MsgBox (i) Next End Sub