How do I output field as a numeric and not string?

[skinnybloke]

Hi - I have used scripts similar to the following to replace strings
in queries that output datafeeds in Excel format.

This time I need to output the field as a numeric and not a string.
What do I need to change in this script to make this happen?

Function PaypalQtyCheck(s As String, strGoAhead As String)
Dim a() As String
Dim v As Variant
If strGoAhead = "3" Then
s = Replace(s, "0", "1")
End If
a() = Split(s, "<")
For Each v In a
PaypalQtyCheck = PaypalQtyCheck & Mid$(v, InStr(v, ">") + 1)
Next v
End Function

[Jim Andersen]

skinnybloke wrote:

This time I need to output the field as a numeric and not a string.
What do I need to change in this script to make this happen?

Just add "As Long", that will implicitly convert the value (if possible) to
numeric:
Function PaypalQtyCheck(s As String, strGoAhead As String) as Long

/jim

[skinnybloke]

Thnaks Jim - that worked a treat.

On Wed, 3 May 2006 12:59:47 +0200, "Jim Andersen"
<jb****@politiSLET.dk.invalid> wrote:

skinnybloke wrote:

This time I need to output the field as a numeric and not a string.
What do I need to change in this script to make this happen?

Just add "As Long", that will implicitly convert the value (if possible) to
numeric:
Function PaypalQtyCheck(s As String, strGoAhead As String) as Long

/jim