Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Set MyScreen = Sess0.Screen
Set MyArea = MyScreen.Area(6,17,6,22,,3)
MyArea.Select
MyArea.Copy
if isnumeric(MyArea) then
DiffMyArea = clng(MyArea)-clng(75.00)
end if
If MyArea.Value < 85.00 Then
Msgbox "amount must be at least greater than $85.00"
End If
Set MyScreen = Sess0.Screen
Set MyArea = MyScreen.Area(6,17,6,22,,3)
MyArea.Select
MyArea.Copy
if isnumeric(MyArea) then
DiffMyArea = clng(MyArea)-clng(75.00)
end if
If MyArea.Value < 85.00 Then
Msgbox "amount must be at least greater than $85.00"
End If
Set MyArea = MyScreen.Area(6,17,6,22,,3)
MyArea.Paste
Set MyScreen = Sess0.Screen
Set MyArea = MyScreen.Area(6,17,6,22,,3)
if isnumeric(MyArea) then
DiffMyArea = clng(MyArea)-clng(75.00)
end if
If DiffMyArea < 85.00 Then
Msgbox "amount must be at least greater than $85.00"
End If
MyScreen.Area(6,17,6,22,,3) = DiffMyArea