Android Question How To get CheckSum8 Modulo 256

Private Sub SumOfBytesMod256(Input As String) As String
    Dim x As Int
    For i = 0 To Input.Length - 1
        x = x + Asc(Input.CharAt(i))
    Next
    Return Bit.ToHexString(x Mod 256).ToUpperCase
End Sub