Can't locate 8th character?

Hi,

Can anyone help? I'm trying to locate the 8th Character of TextBox 5.so if it says "C", TextBox58 produces "C58000"

Private Sub TextBox5_Change()

If TextBox5.Value  (8th character) = "C" Then




Me.TextBox58.Value = "C58000"

End If

End Sub