RuneScape Currency

    'Format RuneScape currency as GP/K/M/B
    Function CalculateStack(ByVal Value As Long) As String
        Dim K As Double = Value / 1000
        Dim M As Double = Value / 1000000
        Dim B As Double = Value / 1000000000

        If K >= 1 Then
            If M >= 1 Then
                If B >= 1 Then
                    Return String.Format("{0}B", B)
                Else
                    Return String.Format("{0}M", M)
                End If
            Else
                Return String.Format("{0}K", K)
            End If
        Else
            Return String.Format("{0}GP", Value.ToString)
        End If

        Return Value.ToString
    End Function