Any one can help me in this code I'm having a problem on this one when i was trying to INPUT this error will pop up

type mismatch

Please Help me

Private Sub commandSubmit_Click()

Dim sName As String
Dim ctr As Integer
Dim amount As Double


'activate worksheet based on submitted entries
sName = Me.comboPtype.VALUE
ctr = 13


Application.ScreenUpdating = False
Worksheets(sName).Activate
Worksheets(sName).Range("B" & ctr).Select


Do Until IsEmpty(Worksheets(sName).Range("B" & ctr).Value)
If Worksheets(sName).Range("B" & ctr).Offset(0, -1).Value = 90 Then
Do Until Worksheets(sName).Range("B" & ctr).Offset(0, -1).Value = 91
ctr = ctr + 1
Loop
Else
ctr = ctr + 1
End If

Worksheets(sName).Range("B" & ctr).Select
Loop

If Worksheets(sName).Range("B" & ctr).Offset(-1, -1).Value <> "" Then
idNum = Worksheets(sName).Range("B" & ctr).Offset(-1, -1).Value + 1
Else
If Worksheets(sName).Range("B" & ctr).Offset(126, -1).Value = 91 Then
idNum = 1
Else
idNum = Worksheets(sName).Range("B" & ctr).Offset(-13, -1).Value + 1
End If
End If


'placing all necessary values
Worksheets(sName).Range("B" & ctr).Value = Me.comboClient.Value
Worksheets(sName).Range("B" & ctr).Offset(0, -1).Value = idNum
Me.controlNumber.Caption = "Control No: " & idNum
idNum = idNum + 1
Worksheets(sName).Range("B" & ctr).Offset(0, 2).Value = Me.comboCurrency.Value
amount = CDbl(Me.textAmount & "." & Me.textAmount2)
Worksheets(sName).Range("B" & ctr).Offset(0, 4).Value = amount
Worksheets(sName).Range("B" & ctr).Offset(0, 6).Value = Me.comboSource
Worksheets(sName).Range("B" & ctr).Offset(0, .Value = Me.comboMIFT
Worksheets(sName).Range("B" & ctr).Offset(0, 10).Value = Me.comboSBSR
Me.confirmationNotice.Visible = TrueSorry, I am not into this kind of TING. Can you verify the item below is a valid thing in the script? How can a value be <> "" ? Double quotes are for STINGS. No?


Quote

..." & ctr).Offset(-1, -1).Value <> "" Then