Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim str As String
        str = "This is a Test"
        MsgBox(str.Length())
    End Sub
End Class