Ein Tip:

If I = "s" Then

schreibst du als

If I = 115 Then

"115" ist der ascii-Code von "s"