Hi makumbi,
Please refer below sample.
Namespace
VB.Net
Imports System.Windows.Forms
Code
VB.Net
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
Dim value As String = "100"
Dim result As Integer = MsgBox("You have enetered Less money by: " _
& value & Chr(10) & Chr(10) & _
"If this is a credit sale enter the account No of the Customer, Is it a credit Sale ?", vbYesNo, "SPOS")
If result = 7 Then
MsgBox("No clicked.")
Exit Sub
Else
MsgBox("Yes clicked.")
Exit Sub
End If
End Sub
Screenshot