Case "!stat"
    Dim tick As Long
    tick = GetTickCount()
    Dim aKillsDeaths() As String, sStat As String
    sStat = GetKillDeath(players(theirID).Name)
    Do While Net.StillExecuting = True
        DoEvents
    Loop
    If InStr(1, LCase(sStat), "error") = 0 Then
        aKillsDeaths = Split(sStat, ":")
        GodSend CStr(players(theirID).Name & "'s Stats - Current Kills/Deaths: " & players(theirID).Score & "/- Total Kills/Deaths: " & aKillsDeaths(0) & "/" & aKillsDeaths(1) & ". Time Taken: " & GetTickCount() - tick & "ms")
    Else
        GodSend "You are't registered on the database, please rejoin the server"
    End If