Set objFSO = CreateObject("Scripting.FileSystemObject")
Set TF = objFSO.OpenTextFile(strInputFilePath,1)
inp = TF.ReadAll
out1=Replace(inp,Chr(34),"")
out2=Replace(out1,",",";")
out3=Replace(out2,"Albuquerque; NM","Albuquerque, NM")
out4=Replace(out3,"Anniston; AL","Anniston, AL")
out5=Replace(out4,"Arden Hills; MN","Arden Hills, MN")
out6=Replace(out5,"Arlington Heights; IL","Arlington Heights, IL")
out7=Replace(out6,"Bamberg; Germany","Bamberg, Germany")
out8=Replace(out7,"Baumholder; GERMANY","Baumholder, GERMANY")
out9=Replace(out8,"Beaumont; TX","Beaumont, TX")
out10=Replace(out9,"Camp Carroll; KOREA","Camp Carroll, KOREA")
out11=Replace(out10,"Camp Casey; KOREA","Camp Casey, KOREA")
out12=Replace(out11,"Camp Henry; KOREA","Camp Henry, KOREA")
out13=Replace(out12,"Camp Hovey; KOREA","Camp Hovey, KOREA")
out14=Replace(out13,"Camp Parks; CA","Camp Parks, CA")
out15=Replace(out14,"Camp Zama; JAPAN","Camp Zama, JAPAN")
out16=Replace(out15,"Chievres AB; Belgium","Chievres AB, Belgium")
out17=Replace(out16,"Columbus; OH","Columbus, OH")
out18=Replace(out17,"Concord; NC","Concord, NC")
out19=Replace(out18,"Coraoplis; (Pittsburgh); PA","Coraoplis, (Pittsburgh), PA")
out20=Replace(out19,"Decatur; GA","Decatur, GA")
out21=Replace(out20,"Des Moines; IA","Des Moines, IA")
out22=Replace(out21,"Fort Myer; VA","Fort Myer, VA")
out23=Replace(out22,"Hanau; GERMANY","Hanau, GERMANY")
out24=Replace(out23,"Harrisburg; PA","Harrisburg, PA")
out25=Replace(out24,"Independence; MO","Independence, MO")
out26=Replace(out25,"Jacksonville; FL","Jacksonville, FL")
out27=Replace(out26,"Kaizerslautern; Germany","Kaizerslautern, Germany")
out28=Replace(out27,"Kings Mills; OH","Kings Mills, OH")
out29=Replace(out28,"Lexington; KY","Lexington, KY")
out30=Replace(out29,"Little Rock; AR","Little Rock, AR")
out31=Replace(out30,"Los Angeles; CA","Los Angeles, CA")
out32=Replace(out31,"Louisville; KY","Louisville, KY")
out33=Replace(out32,"Mannheim; GERMANY","Mannheim, GERMANY")
out34=Replace(out33,"Millington; TN","Millington, TN")
out35=Replace(out34,"Milwaukee; WI","Milwaukee, WI")
out36=Replace(out35,"Mobile; AL","Mobile, AL")
out37=Replace(out36,"Monterey; CA","Monterey, CA")
out38=Replace(out37,"Montgomery; AL","Montgomery, AL")
out39=Replace(out38,"Nashville; TN","Nashville, TN")
out40=Replace(out39,"North Charleston; SC","North Charleston, SC")
out41=Replace(out40,"Oakdale; (Pittsburg); PA","Oakdale, (Pittsburg), PA")
out42=Replace(out41,"Perrine (WestMiami); FL","Perrine (WestMiami), FL")
out43=Replace(out42,"Schweinfurt; Germany","Schweinfurt, Germany")
out44=Replace(out43,"Seagoville; TX","Seagoville, TX")
out45=Replace(out44,"Sharonville; OH","Sharonville, OH")
out46=Replace(out45,"Shreveport;(Bossier) LA","Shreveport,(Bossier) LA")
out47=Replace(out46,"Southfield; Mi.","Southfield, Mi.")
out48=Replace(out47,"St. Petersburg; FL","St. Petersburg, FL")
out49=Replace(out48,"Tampa; FL","Tampa, FL")
out50=Replace(out49,"Torri Station; JAPAN","Torri Station, JAPAN")
out51=Replace(out50,"Vicenza; Italy","Vicenza, Italy")
out52=Replace(out51,"Vilseck; GERMANY","Vilseck, GERMANY")
out53=Replace(out52,"Wiesbaden; Germany","Wiesbaden, Germany")
out54=Replace(out53,"Willow Grove(Phil); PA","Willow Grove(Phil), PA")
out55=Replace(out54,"Wuerzburg; GERMANY","Wuerzburg, GERMANY")
TF.close
Set TF = ObjFSO.CreateTextFile(strInputFilePath,True)
TF.Writeline out55
TF.Close