VBA: invalid procedure call or argument

Hallo, ich habe hier diesen code in Excel VBA erstellt um seriell Daten 
zu senden und bekomme dauernd den genannten Fehler.

Private Sub CommandButton1_Click()

Dim CHKSUM As Integer
Dim Aout As String
Dim O1 As String
Dim O2 As String
Dim O3 As String
Dim I1 As String
Dim I2 As String
Dim I3 As String

'Clear cells first
Range("B13:AG28").ClearContents

O1 = Left(O, 1)
O2 = Mid(O, 2, 1)
O3 = Right(O, 1)

I1 = Left(I, 1)
I2 = Mid(I, 2, 1)
I3 = Right(I, 1)

'Calculate checksum and send data
CHKSUM = ((Asc("{") - 32) + (Asc("A") - 32) + (Asc("B") - 32) + 
(Asc("s") - 32) + (Asc(",") - 32) + (Asc(O1) - 32) + (Asc(O2) - 32) + 
(Asc(O3) - 32) + (Asc(",") - 32) + (Asc(I1) - 32) + (Asc(I2) - 32) + 
(Asc(I3) - 32) + (Asc("}") - 32) Mod 95) + 32

Aout = "{ABs," & O1 & O2 & O3 & "," & I1 & I2 & I3 & "}" & Chr$(CHKSUM)


Wenn ich die Zeile "Range("B13:AG28").ClearContents" weglasse ist alles 
in Ordnung, wenn ich sie drin habe bekomm ich den Fehler in der Zeile 
angezeigt, in der die Checksum berechnet wird. Wo ist da der Sinn???

mfg Max