"Conversion from type 'Range to type Boolean' is not valid

See more:

VB

Hi
I started Visual Basic in an API environment in Solidworks, moving over to visual studio Im noticing the methods are slightly different. I seem to have a problem and im not sure how far out my code is for Visual Studio, I'd appreciate any help.

On running the Code Below I get this Error ::

"Conversion from type 'Range to type Boolean' is not valid

Option Explicit On
Imports Microsoft.Office.Interop.Excel

Public Class MainForm
    Dim Excelobject As Object
    Dim ExcelBook As Object
    Dim ExcelSheet As Object
    Dim xlsh As Object
    Dim CopyCell As String

    Public Function GetExcellFilePath() As String
        GetExcellFilePath = "C:\Data\ItemBase.xlsx"
    End Function

    Public Sub OpenExcellDocument()
        Excelobject = GetObject(GetExcellFilePath)
        xlsh = Excelobject.ActiveSheet
        If Excelobject Is Nothing Then
            MsgBox("Could not Open ItemBase.xlsx")
        End If
    End Sub

    Public Sub Weapons(ByVal Row, ByVal Column)
        OpenExcellDocument()
        MsgBox(Row & Column)
        Do While (xlsh.Cells(Row, Column))
            CopyCell = xlsh.Cells(Row, Column).Value.ToString()
            Me.ComboBoxWeapons.Items.Add(CopyCell)
            Row = Val(Row + 1)
        Loop
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Button1.Click
        Weapons(3, 1)
    End Sub

End Class