VBA/Excel/Access/Word/String Functions/len

Finding a string length

 
Sub GetLength()
    Dim MyString As String
    Dim StringLength As Integer
    MyString = "Hello World"
    StringLength = Len(MyString)
    MsgBox StringLength
End Sub

Get the length of a String

 
Sub GetLengthOfString()
   Dim stFullName As String
  
   stFullName = "C:\asdf\asdf.xls"
    MsgBox Len(stFullName)
End Sub

Using Len(string) to Check the Length of a String

 
Sub CheckPassword()
    Dim strPassword As String
BadPassword:
    strPassword = "pass"
    If Len(strPassword) = 0 Then
        End
    ElseIf Len(strPassword) < 6 Then
        MsgBox "less than 6.",vbOKOnly + vbCritical, "Unsuitable Password"
        GoTo BadPassword
    ElseIf Len(strPassword) > 15 Then
        MsgBox "too long." , vbOKOnly + vbCritical, "Unsuitable Password"
        GoTo BadPassword
    End If
End Sub