ZipFile = FileSystemObject.BuildPath(ZipPath, ZipName)

If FileSystemObject.FileExists(ZipFile) Then
    If OverWrite = True Then

Private Sub ImmportFiles_Click()

    Dim InputDir        As String
    Dim ImportFile      As String
    Dim InputMsg        As String
    Dim Name            As String
    
    InputMsg = _
        "Type the pathname of the folder that contains " & _
        "the files you want to import."
    InputDir = InputBox(InputMsg, "Import

strSearchString = "456"

Dim HyperLink As String

HyperLink = "http://viewitd.com/UnitTrace/ListUnitTrace.asp?&ListProduct=0&ListProductVar1=0 &ListProductVar2=0&ListProductVar3=0&DespatchNo=&TraceabilityNo=" & strSearchString & "&StartDateTime=&EndDateTime=&TitleStrin g=+++strSearchString&sProduct="

string currentSong = "Spotify - SONGNAME";
string songTitle = currentSong.Split(" - ", 2)[1];
Console.WriteLine(songTitle);

Printer.Print = Chr$(29) & StrConv("k", vbFromUnicode) & Chr$(72) & Chr$(12)
' or:
Printer.Print = Chr$(29) & ChrB(107) & Chr$(72) & Chr$(12)

Char(Convert(int,Convert(binary(1), '0x' + '36', 1)))

Select IndividualId, Value
From YourTable
Where Id In
    (Select Top 7 T.Id
    From YourTable As T
    Where T.IndividualId = YourTable.IndividualId
    Order by T.Value Desc, T.Id)