Excel VBA 文字列の中から先頭の数文字を指定して取り出したい(Left関数)

下記は「12345ABC」などの文字列から「12345」部分だけを取り出したい場合の一例。
1列目に格納された「11111xxx」形式の文字列から、先頭5桁の値を取り出し、隣の2列目にその値を格納する。
 
 
 
Sub a()
 
    Dim str As String
    Dim i As Integer
    
    str = ""
    i = 1
    
    For i = 1 To 10
        
        str = Worksheets(1).Cells(i, 1)
        
        If Trim(str) <> "" Then
            Worksheets(1).Cells(i, 2) = Left(str, 5)
        End If
    
    Next
    
End Sub