[VB6] Run time error '13' Type mismatch

[Ashleys165]

Probably something stupid, but I'm tired and I want to get this shit done. So...

Private Sub Command1_Click()
    Dim strhtml As String


    a = 0
    If Text1 > 10 Then
        Log.AddItem "The Max. # of eggs"
        Log.AddItem " can select is 10."
    ElseIf Text3 > Label6 Then
        Log.AddItem "You cannot bet more than"
        Log.AddItem Label6 & "neopoints!"
    Else
        Log.AddItem "Started Gambling"
        c = 0

        endnp = 0
        endnp = (GetStringBetween(strhtml, "NP: <a id='npanchor' href=""/objects.phtml?type=inventory"">", "</a>"))



        Do Until c = Text


            '(my secret stuffs xD)


        Loop
        np = (GetStringBetween(strhtml, "NP: <a id='npanchor' href=""/objects.phtml?type=inventory"">", "</a>"))
        NPOH1 = np & " Neopoints On Hand"

        Log.AddItem "Total Profit: " & np - endnp & " Neopoints."  'I am being told that endnp has no value ""  But the green part should give it value
        Log.AddItem "Done Gambling"
    End If
End Sub

Help me, I'm about to fall asleep at the computer and have nightmares about the code. :/

+REP

PS: I just decided to remove everything in the loop for the sake of not being copied and I still have to add human-like qualities, plus it looks a bit sad. If you need to see it, PM me please.