Suggestion please
Change the following
To
Catch ex As Exception
MessageBox.Show("Error while Chnging Password " & ex.Message & vbCrLf & "Please contact ITC", "", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Try
And please Check Your Naming Convention
For ex: txtPassword.Text etc . . .