Spring over nul beløb

Jeg har følgende makro (bogføringsrobot) som fungerer fint :

Sub Tasterobot()

If funcForbindTilSession("True", "") = False Then Exit Sub

Dim i As Integer
Dim j As Integer

For i = 3 To 1000

  funcSendKeysViaRkKol "2500", 23, 6
  funcSendKeys "[Enter]"
 
funcSendKeysViaRkKol Cells(i, 2), 4, 41
  funcSendKeys "[Enter]"
 
  'Indsætter beløb fra regnearket til 5,15 i 2500 og trykker enter
  funcSendKeysViaRkKol Cells(i, 3), 5, 15
  funcSendKeys "[Enter]"
 
  funcSendKeysViaRkKol Cells(i, 4), 7, 15
  funcSendKeys "[Enter]"
 
  funcSendKeysViaRkKol Cells(i, 5), 7, 48
  funcSendKeys "[Enter]"
 
  funcSendKeysViaRkKol Cells(i, 6), 8, 15
  funcSendKeys "[Enter]"
 
  funcSendKeysViaRkKol Cells(i, 7), 8, 22
  funcSendKeys "[pf2]"
  funcSendKeys "[pf2]"
 
  Cells(i, 8) = funcGetTextViaRkCol(24, 2, 25)
   
  funcSendKeys "[pf3]"

End Sub

Jeg har dog brug for en tilføjelse, idet der kan forekommer rækker med nul i beløbet og disse skal selvfølgelig ikke bogføres, men istedet springes over. Det drejer sig om følgende linie :

'Indsætter beløb fra regnearket til 5,15 i 2500 og trykker enter
  funcSendKeysViaRkKol Cells(i, 3), 5, 15
  funcSendKeys "[Enter]"

Kunne nogen hjælpe mig med denne tilføjelse ?

På forhånd tak.