Gerar número de sessão em VB

Bematech BemaSAT

Gerar número de sessão em VB

Public Function numSessao()

Randomize

    ' Gera um número randomico de 5 dígitos.

    Dim value As Integer

    'Dim sessao As Integer

    sessao = CInt(Int((9999 * Rnd()) + 10000))

    ' Mostra o valor da sessão em um campo do tipo Text.

    Text1.Text = CInt(sessao)

    numSessao = Abs(sessao)

End Function