Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Private Sub Command5_Click() Dim Success As Boolean Dim Value As String Dim StringEntered As String StringEntered = "yjk65kg12dky" 'this will be textbox value entered by user Value = GetNumbers(StringEntered) If Val(Value) >= 5000 And Val(Value) <= 9900 Then 'now check if the correct letters are typed Success = True Else Success = False End If MsgBox Success End Sub Function GetNumbers(Value As String) As String 'extract and return numbers from a string Dim Index As Long Dim Digit As String Dim Final As String Dim Count As Long Count = 1 GetNumbers = space(Len(Value)) For Index = 1 To Len(Value) Digit = Mid(Value, Index, 1) If Digit Like "[0-9]" Then Mid(GetNumbers, Count, 1) = Digit Count = Count + 1 End If Next GetNumbers = Left(GetNumbers, Count - 1) End Function
|MS Access Form Control Background Color Change Depending On How Long The String Text Length Is||18||87|
|Error with a code discussed on this page||5||32|
|VBA - If Bookmark = "XXBOOKMARKXX" then||15||40|
|VB6 common control 6 sp6 object library not registerd||3||22|