vb code----Expected-end of statement

'VERSION 5.00
'Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "Mscomm32.ocx"
Begin VB.Form FrmMain
   BackColor = &H80000002
   
    
   StartUpPosition = 3    'Windows Default
   WindowState = 2        'Maximized
   Begin VB.Timer Timer3
      Interval = 1000
      Left = 3720
      Top = 10560
   End
   Begin VB.Timer Timer2
      Interval = 1000
      Left = 4200
      Top = 10560
   End
   Begin MSCommLib.MSComm MSComm1
      Left = 5160
      Top = 10440
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
      DTREnable = 0           'False
   End
   Begin VB.Timer Timer1
      Interval = 1000
      Left = 4680
      Top = 10560
   End
   Begin VB.CommandButton Command2
      Caption = "Range 28-44 mm."
      BeginProperty Font
         Name = "Trebuchet MS"
         Size = 21.75
         Charset = 0
         Weight = 700
         Underline = 0           'False
         Italic = -1             'True
         Strikethrough = 0       'False
      EndProperty
      Height = 1335
      
      Width = 3735
   End
   Begin VB.Frame FrameDia
      
      Caption = "Value of Measuring"
      BeginProperty Font
         Name = "Trebuchet MS"
         
         Strikethrough = 0       'False
      EndProperty
      Height = 3495
      
      Width = 14295
      Begin VB.Label lblDataOuter
         Alignment = 2          'Center
         BackColor = &H80000009
         Caption = "1.002"
         BeginProperty Font
            Name = "Trebuchet MS"
           
            Strikethrough = 0       'False
         EndProperty
         Height = 1785
         Left = 4920
         TabIndex = 8
         Top = 840
         Width = 6075
      End
      Begin VB.Label Label2
         
         Caption = "mm."
         BeginProperty Font
            Name = "Trebuchet MS"
            Size = 72
            Charset = 0
            Weight = 700
            Underline = 0           'False
            Italic = -1             'True
            Strikethrough = 0       'False
         EndProperty
         Height = 1785
         Left = 10920
         TabIndex = 7
         Top = 840
         Width = 3075
      End
      Begin VB.Label lblDia
         BackColor = &H80000002
         Caption = "Outer Diameter"
         BeginProperty Font
            Name = "Trebuchet MS"
            Size = 36
            Charset = 0
            Weight = 700
            Underline = 0           'False
            Italic = 0              'False
            Strikethrough = 0       'False
         EndProperty
         Height = 1815
         Left = 600
         TabIndex = 6
         Top = 840
         Width = 4095
      End
   End
   Begin VB.Frame FrameHigh
      BackColor = &H80000002
      Caption = "Value of Measuring"
      BeginProperty Font
         Name = "Trebuchet MS"
         Size = 24
         Charset = 0
         Weight = 400
         Underline = 0           'False
         Italic = 0              'False
         Strikethrough = 0       'False
      EndProperty
      Height = 3495
      Left = 480
      TabIndex = 1
      Top = 5040
      Width = 14295
      Begin VB.Label lblHigh
         BackColor = &H80000002
         Caption = "Length"
         BeginProperty Font
            Name = "Trebuchet MS"
            Size = 36
            Charset = 0
            Weight = 700
            Underline = 0           'False
            Italic = 0              'False
            Strikethrough = 0       'False
         EndProperty
         Height = 975
         Left = 720
         TabIndex = 4
         Top = 1200
         Width = 2655
      End
      Begin VB.Label lblUnit
         Alignment = 2          'Center
         AutoSize = -1           'True
         BackColor = &H80000009
         Caption = "mm."
         BeginProperty Font
            Name = "Trebuchet MS"
            Size = 72
            Charset = 0
            Weight = 700
            Underline = 0           'False
            Italic = -1             'True
            Strikethrough = 0       'False
         EndProperty
         Height = 1785
         Left = 10920
         TabIndex = 3
         Top = 840
         Width = 3075
      End
      Begin VB.Label lblDataLength
         Alignment = 2          'Center
         BackColor = &H80000009
         Caption = "30.001"
         BeginProperty Font
            Name = "Trebuchet MS"
            Size = 72
            Charset = 0
            Weight = 700
            Underline = 0           'False
            Italic = -1             'True
            Strikethrough = 0       'False
         EndProperty
         Height = 1785
         Left = 4800
         TabIndex = 2
         Top = 840
         Width = 6195
      End
   End
   Begin VB.CommandButton Command1
      Caption = "Range 16-28 mm."
      BeginProperty Font
         Name = "Trebuchet MS"
         Size = 21.75
         Charset = 0
         Weight = 700
         Underline = 0           'False
         Italic = -1             'True
         Strikethrough = 0       'False
      EndProperty
      Height = 1335
      Left = 6240
      TabIndex = 9
      Top = 9600
      Width = 3735
   End
   Begin VB.Image Img2844
      Height = 900
      Left = 11760
      Picture         =   "HighCheck_01.frx":1CCA
      Stretch = -1            'True
      Top = 8640
      Width = 900
   End
   Begin VB.Image img1628
      Height = 900
      Left = 7800
      Picture         =   "HighCheck_01.frx":210C
      Stretch = -1            'True
      Top = 8640
      Width = 900
   End
   Begin VB.Label lblDate
      Alignment = 2          'Center
      BackColor = &H80000002
      Caption = "Date"
      BeginProperty Font
         Name = "Trebuchet MS"
         Size = 26.25
         Charset = 0
         Weight = 700
         Underline = 0           'False
         Italic = -1             'True
         Strikethrough = 0       'False
      EndProperty
      Height = 615
      Left = 480
      TabIndex = 12
      Top = 9240
      Width = 3375
   End
   Begin VB.Label lblTime
      Alignment = 2          'Center
      BackColor = &H80000002
      Caption = "Time"
      BeginProperty Font
         Name = "Trebuchet MS"
         Size = 26.25
         Charset = 0
         Weight = 700
         Underline = 0           'False
         Italic = -1             'True
         Strikethrough = 0       'False
      EndProperty
      Height = 615
      Left = 120
      TabIndex = 11
      Top = 9960
      Width = 3975
   End
   Begin VB.Label lblMain
      BackColor = &H80000002
      Caption = "Dimension Measurement Machine"
      BeginProperty Font
         Name = "Comic Sans MS"
         Size = 27.75
         Charset = 0
         Weight = 400
         Underline = -1          'True
         Italic = 0              'False
         Strikethrough = 0       'False
      EndProperty
      ForeColor = &H80000007
      Height = 975
      Left = 3360
      TabIndex = 0
      Top = 0
      Width = 9135
   End
End
Option Explicit
Public DataOuter As String, DataLength As String, RecData As String, Model As String
Private Sub Form_Load()
    
    img1628.Visible = False
    Img2844.Visible = False
    
End Sub

Private Sub Command1_Click()
    MSComm1.Output = "@00WR0200000146*" & vbCr
    Delay
End Sub

Private Sub Command2_Click()
    
    Delay
End Sub

Private Sub Delay()
Dim a As Single
    
End Sub

Private Sub Image1_Click()

End Sub

Private Sub Timer1_Timer()
    lblTime.Caption = Format(Now, "HH:MM:SS AmPm")
    lblDate.Caption = Format(Now, "DD/MM/YY")
End Sub

Private Sub Timer2_Timer()
    MSComm1.Output = "@00RD0040000654*" & vbCr
    Delay
     
      
        End If
End Sub

Private Sub Timer3_Timer()
 If Model = "1" Then
       img1628.Visible = True
    Else
       img1628.Visible = False
    End If
    If Model = "2" Then
       Img2844.Visible = True
    Else
       Img2844.Visible = False
    End If
End Sub