Sub Button1_Click
If EditText1.Text.Trim= "" Then
Msgbox ("Please Enter a Serial Number and Click Ok", "360" )
Else
File.WriteString(File.DirDefaultExternal, EditText1.Text & ".txt" , txtLog.Text)
ToastMessageShow ("Info Saved", False)
End If
End Sub