Estou usando este código para alimentar um textbox

Private Sub txb_cod1_AfterUpdate()
On Error Resume Next
 txb_prod1.Value = WorksheetFunction.VLookup(CDbl(txb_cod1.Value), Sheets("POSIÇÃO ESTOQUE").Range("A1:C5000"), 3, False)
 txb_marca1.Value = WorksheetFunction.VLookup(CDbl(txb_cod1.Value), Sheets("POSIÇÃO ESTOQUE").Range("A1:D5000"), 4, False)
 txb_unit1.Value = WorksheetFunction.VLookup(CDbl(txb_cod1.Value), Sheets("POSIÇÃO ESTOQUE").Range("A1:f5000"), 6, False)
 txb_unit1 = Format(txb_unit1, "#,##0.00")
 Txb_QuantMax1.Value = WorksheetFunction.VLookup(CDbl(txb_cod1.Value), Sheets("POSIÇÃO ESTOQUE").Range("A1:E5000"), 5, False)
 Txb_QuantMax1 = Format(Txb_QuantMax1, "#,##0.00")
'ListBox1 = Application.WorksheetFunction.VLookup(CDbl(TextBoxCod), Plan1.Range("A2:F5000"), 1, 0) '   nao tinha
If Txb_QuantMax1 = 0 Then
MsgBox "Produto ZERADO no Estoque"
End If
End Sub

E este para validar o preenchimento de outro

Private Sub txb_qtde1_Change()
If txb_qtde1 > Txb_QuantMax1 Then
Me.txb_qtde1 = Empty
MsgBox "Quantidade Acima do Estoque", vbRetryCancel
End If
End Sub

O problema é:
Txb_QuantMax1 por exemplo igual a 111,00
se em txb_qtde1 eu digitar 2 dá MsgBox "Quantidade Acima do Estoque" *ERRADO*
se digitar 11 é OK m se digitar 111 é OK se digitar 1111 dá MsgBox "Quantidade Acima do Estoque" -*CERTO*

Txb_QuantMax1 por exemplo 10,00 se em txb_qtde1 eu digitar 2 dá MsgBox "Quantidade Acima do Estoque" *ERRADO*se digitar 1 é OK m se digitar 10 é OK se digitar 11 dá MsgBox "Quantidade Acima do Estoque" -*CERTO*

Txb_QuantMax1 por exemplo 20,00 se em txb_qtde1 eu digitar 3 dá MsgBox "Quantidade Acima do Estoque" *ERRADO*se digitar 2 é OK m se digitar 19 é OK se digitar 21 dá MsgBox "Quantidade Acima do Estoque" -*CERTO*