i have this code and it want work can some one help me

Code:
myString = txtWebWrighter.Text
    charCount = Len(myString)
    frmMain.StatusBar1.Panels.Item.Index = 3
    frmMain.StatusBar1.Panels.Item.Text = "Char: " & charCount & " "
the code is exaplinable by its self im tired thanks bye