VB6 Functions - Return Value

Function GetData(strData As String) As String

GetData = strData

End Function

Set the name of the function equal to the data you want to pass back.

VB6 For Loop to UBound

For lngLoop = 0 To (UBound(strHL7Message()) - 1) 'Loop thru segments.
' To avoid subscript errors and crashing;
' you only loop to Ubound of structure - 1.
Next 'End loop thru segments.

VB 6 Not Compiling EXE File

=== PROBLEM ===
Recently updating a VB6 application, but couldn't find the build an EXE option. This can normally be accessed by right clicking the project -> publish -> build outputs. However it wasn't available.

















=== SOLUTION ===
It appears that removing the 'Visual Component Manager 6.0' using the 'Add In Manager'; saving; exiting the project and then adding the 'Visual Component Manager 6.0' resolves the issue.

WinNT Map Drive Credential Conflict - 1219

Problem: When mapping a drive in WinNT operating systems you can get the 1219 credential conflict error.

Solution: Map the drive using the ip address instead of the host name.