Lesson 12: String Manipulation in VB2019

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim str1 = "Visual ", str2 = "Basic ", str3 = "2019", str As String
    str = str1 + str2 + str3
    MsgBox(str)
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim str1 = "Visual ", str2 = "Basic ", str3 = "2019", str As String
    Dim str4 As Integer
    str4 = 100
    ' Using + will cause an error
    ' str = str1 + str2 + str3 + str4
    
    ' Using & will work correctly
    str = str1 & str2 & str3 & str4
    MsgBox(str)
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim MyText As String
    MyText = "Visual Basic 2019"
    MsgBox("The Length of " & MyText & " is " & Len(MyText))
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim MyText As String
    MyText = "Visual Basic"
    Dim leftPart = Microsoft.VisualBasic.Left(MyText, 6)
    Dim rightPart = Microsoft.VisualBasic.Right(MyText, 5)
    
    MsgBox("Left: " & leftPart & " | Right: " & rightPart)
End Sub

Public Class Form1
    Dim myPhrase As String
    Dim pos As String
    Dim num As String
    
    Private Sub BtnEnter_Click(sender As Object, e As EventArgs) Handles BtnEnter.Click
        myPhrase = InputBox("Enter your phrase")
        LblPhrase.Text = myPhrase
    End Sub

    Private Sub BtnExtract_Click(sender As Object, e As EventArgs) Handles BtnExtract.Click
        pos = TxtPos.Text
        num = TxtNum.Text
        LblExtract.Text = Mid(myPhrase, pos, num)
    End Sub
End Class

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim position = InStr(1, "Visual Basic", "Basic")
    Label1.Text = position
End Sub