Android Question problem with a dangerous permission

Public Sub GenerateID As String
    Dim Str As StringFunctions
    Str.Initialize
    Return Str.RndChrGen(16,0)
End Sub

Sub GenerateID As String
    Dim id As StringBuilder
    id.Initialize

    Dim chars As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
    For i = 0 To 15
        Dim index As Int = Rnd(0, chars.Length)
        id.Append(chars.CharAt(index))
    Next

    Return id.ToString
End Sub