Private Sub CommandButton1_Click() 
    Dim oSht  As Worksheet 
    Dim lngRow As Long 
    Dim dblReturn As Double 
    
    Set oSht = ThisWorkbook.Worksheets( 1 ) 
    lngRow =  1  
    
    dblReturn = GetNumber(oSht, lngRow) 
    If Bingo(dblReturn) Then GoTo MethodExit 
    
    While lngRow <  101  
            lngRow = oSht.Range("A" & CStr(lngRow)).End(xlDown).Row 
            If lngRow <  101  Then 
                dblReturn = GetNumber(oSht, lngRow) 
                If Bingo(dblReturn) Then GoTo MethodExit 
            End If 
    Wend 
    
MethodExit: 
    
    MsgBox dblReturn 
    
End Sub 

Private Function GetNumber(ByRef ioSht As Worksheet, _ 
                                          ByVal plngRow As Long) As Double 
                                          
    If IsNumeric(ioSht.Range("A" & CStr(plngRow)).Value) Then 
        GetNumber = ioSht.Range("A" & CStr(plngRow)).Value 
    End If 
    
End Function 

Private Function Bingo(ByVal pdblNbr As Double) As Boolean 
    Bingo = pdblNbr >=  6  And pdblNbr <=  100  
End Function