---

Function SheetCellText(ByVal ws As Worksheet, ByVal addressText As String) As String
    On Error GoTo SafeExit

    If ws Is Nothing Then Exit Function
    addressText = Trim$(addressText)
    If Len(addressText) = 0 Then Exit Function

    SheetCellText = Trim$(CStr(ws.Range(addressText).Text))
    Exit Function

SafeExit:
    SheetCellText = vbNullString
End Function