Dim backSlashPos As Short
        Dim fileNameNoPath As String
        backSlashPos = InStrRev(txtFileName.Text, "\")
        If backSlashPos > 0 Then
            fileNameNoPath = Mid(txtFileName.Text, backSlashPos + 1)
        Else
            fileNameNoPath = txtFileName.Text
        End If
 
        Dim iHandle As Integer
 
        iHandle = FreeFile()
        FileOpen(iHandle, txtFileName.Text, OpenMode.Binary)
        Dim bBuffer(LOF(1) - 1) As Byte
        FileGet(iHandle, bBuffer)
 
        Try
            Dim MyService As softserver.TestServerService = New _
              softserver.TestServerService()
 
            Dim MyResult As String
 
            MyResult = MyService.addiere(2, 2)
 
            MyResult = MyResult & MyService.bild(bBuffer)
 
            ' output the total Results found
            MsgBox(MyResult)
        Catch ex As System.Web.Services.Protocols.SoapException
 
            MsgBox(ex.Message)
 
        End Try