Visual Basic

Public Sub CommPortSetup()

        If mySerialPort.IsOpen Then
            mySerialPort.Close()

        End If

        Try
            With mySerialPort
                .PortName = "COM1"
                .BaudRate = 115200
                .DataBits = 8
                .Parity = Parity.None
                .StopBits = StopBits.One
                .Handshake = Handshake.None
                .DtrEnable = True
                .RtsEnable = True
                .NewLine = vbCrLf
            End With
            mySerialPort.Open()
            MessageBox.Show("Connected to COMMPORT1")
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

        mySerialPort.WriteLine("AT+CMGF=1" & vbCrLf)
        System.Threading.Thread.Sleep(200)
        mySerialPort.WriteLine("AT+CMGS=+6390720831187" & vbCrLf)
        System.Threading.Thread.Sleep(200)
        mySerialPort.WriteLine("SUCCESS!" & vbCrLf )
        System.Threading.Thread.Sleep(200)






    End Sub

End Module

 Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x = MsgBox("moon is biger than Sun", MsgBoxStyle.YesNo)
        If x = DialogResult.Yes Then
            Button1.BackColor = Color.Blue
        Else
            Button1.BackColor = Color.Green
        End If
    End Sub
End

Sub CreateTablePessoas(db As Database)
  ' Some code here
End Sub

Sub CreateMyForm()
    Dim db As Database
    Dim tdf As TableDef

    Set db = CurrentDb()
    Set tdf = GetTable("Pessoas", db)

    If tdf Is Nothing Then
        CreateTablePessoas (db)
    End If
End Sub