löschen:
            /*Dim username As String
            Dim password As String
            username = TextBox1.Text
            password = TextBox2.Text
            Dim processor As String = getCPUID()
            Dim mainboard As String = getMoboSerial()
            Dim graphics As String = getGraphicDevice()
            Dim HWIDstring As String = processor & graphics & mainboard
            Dim hardwareid As String = getMD5Hash(HWIDstring)*/
function:

			public function getString(byval accept as string)
			if accept = "True" then
            Dim username As String
            Dim password As String
            username = TextBox1.Text
            password = TextBox2.Text
            Dim processor As String = getCPUID()
            Dim mainboard As String = getMoboSerial()
            Dim graphics As String = getGraphicDevice()
            Dim HWIDstring As String = processor & graphics & mainboard
            Dim hardwareid As String = getMD5Hash(HWIDstring)
			return hardwareid
			else
			MsgBox("ERROR!")
			end if
						end function

how to use:

dim hardwareid as string = getString(True)