Необходимо обрезать строку с двух сторон и убрать символ ' - VB

Формулировка задачи:

Допустим, необходимо обрезать строку с двух сторон и убрать символ ' - апостраф. С первой задаче - справиться легко, но вот апостраф может находиться как в начале, так и в конце строки. Если бы это было не так, что можно было бы выйти Left(url, a-1)+right(url, len(url)-a) Приведенный ниже пример вообще просто зависает в цикле. Как вариант можно было бы перебирать по-символьно всю строку, но может быть есть какие-то иные методы? Заранее благодарен.

                    Листинг программы
                
 
                        
                          
                    
Private Sub Form_Load()
MsgBox (ShortURL('http://www.e1.ru'/html/php'))
End Sub
 
Function ShortURL(url As String) As String
Dim a As Long
a = InStr(1, url, ':')
If a > 0 Then url = Mid(url, a + 3)
a = InStr(1, url, '/')
If a > 0 Then url = Left(url, a - 1)
1 a = InStr(1, url, ''')
If a > 0 Then Mid(url, a, 1) = '': GoTo 1
ShortURL = url
End Function

Перебор по-символьно: Пропускаем ненужный символ.

                    Листинг программы
                
t$=''
For i=1 to len(url)
if mid$(url, i,1)<>''' then t=t+mid(url,i,1)
Next i

Решение задачи: «Необходимо обрезать строку с двух сторон и убрать символ '»

textual
                            Листинг программы 
                        
 
                        
                          
                    
'Если я понял, что нужно только адрес:
Private Sub Form_Load()
 Dim a As String, s As String
s = ShortURL('http://www.e1.ru'/html/php')
a = mid(s, Instr(s,'//')-1)      ' все что после //
a = mid(s,1, InstrRev(s, ''')-1) ' отбросили все  что с '
' a = [url]www.e1.ru[/url]
'MsgBox (ShortURL('http://www.e1.ru'/html/php'))
MsgBox a
End Sub