Visual Basic Codes (snippets)

Using the Do/Loop While structure
Option Explicit
Private Sub Command1_Click()
Dim counter As Integer
counter = 1
Do
Print counter & Space$(2);
counter = counter + 1
Loop Until counter = 10
Print
End Sub
 
Traping Error

On Error GoTo ErrHandler
ErrHandler:
MsgBox Err.Description
Resume Next 

 
Using  Visual Basic Variables
Place three text boxes , two command buttons and three labels on a form as shown in the screen shot
Copy and paste the following code

Option Explicit
Dim First As String
Dim Last As String
Dim Combined As String

Private Sub Command1_Click()
First = Text1.Text
Last = Text2.Text
Combined = First & " " & Last
Text3.Text = Combined
End Sub

Private Sub Command2_Click()
End
End Sub

ScreenShot