Private Sub bnAdd_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles bnAdd.Click
        Dim tmpSource() As Byte
        Dim sSourcedata As String = txtNewPasswd2.Text
        tmpSource = ASCIIEncoding.ASCII.GetBytes(sSourcedata)
        tmpHash1 = New MD5CryptoServiceProvider().ComputeHash(tmpSource)
        MD5PassNew = ByteArrayToString(tmpHash1)
 
        INSERT_Datarow(txtNewName.Text, cmbNewGroup.SelectedItem, MD5PassNew)
End Sub

Private Function ByteArrayToString(ByVal arrInput() As Byte) As String
        Dim i As Integer
        Dim sOutput As New StringBuilder(arrInput.Length)
        For i = 0 To arrInput.Length - 1
            sOutput.Append(arrInput(i).ToString("X2"))
        Next
        Return sOutput.ToString()
End Function