If you can loop through your desired fields, you can send the target
text to the zebra printer (I'm assuming local) via the LPT port of
your PC. There are other methods, but this is easiest.

Private Sub Command1_Click()
Dim strZPL As String
Dim lngFileNum As Long
Dim i As Long

'Loop through your excel sheet
'Assign a value to strReturn
strZPL = "^XA"
strZPL = strZPL & "^PF0^FS"
strZPL = strZPL & "^FT150,250^A0N,244,224^FD " & strReturn & "^FS"
strZPL = strZPL & "^XZ"

lngFileNum = FreeFile()

Open "LPT1" For Output As lngFileNum
'Open Printer.DeviceName For Output As lngFileNum
'Open "\\ARHTEST\ITTEST" For Output As lngFileNum
Print #lngFileNum, strZPL
Close lngFileNum

'Continue your loop

End Sub