Private Function GetNewPassword(ByVal length As Integer) As String

        Dim strNewPassword As String = ""

        strNewPassword = System.Guid.NewGuid().ToString()

        Return strNewPassword.Substring(0, length)

End Function